home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / EXPLO.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.9 KB  |  237 lines
  1. 6 REM "EXPLO.IMG"
  2. 7 REM
  3. 8 REM  *  CYBERCHROME EXPLOSION  *
  4. 9 REM  *                         *
  5. 10 REM *           BY            *
  6. 11 REM *                         *
  7. 12 REM * PETER CARLEY-75545,1541 *
  8. 13 REM *                         *
  9. 14 REM *   AN UTTERLY ORIGINAL   *
  10. 15 REM *     SHORT FIREWORKS     *
  11. 16 REM * EXPLOSION FOR  THE 4TH! *
  12. 17 REM * AND U/L VIA VIDTEX WITH *
  13. 18 REM *    WITH MANY THANKS     *
  14. 19 REM *                         *
  15. 20 REM *                         *
  16. 5900 PRINT"[147]":PRINT"[144]"
  17. 5903 POKE53280,0:POKE53281,0
  18. 5905 POKE1444,81:POKE55716,1
  19. 5907 FOR J=1TO2000:NEXT
  20. 5910 S=54272
  21. 5920 POKES+24,7
  22. 5930 POKES+5,12*16+0
  23. 5940 POKES+6,15*16+10
  24. 5945 FORX=255TO100STEP-1
  25. 5950 POKES+1 ,X
  26. 5955 POKES+4,17
  27. 5960 FORD=1TO10:NEXTD
  28. 5965 NEXTX
  29. 5970 POKES+4,15
  30. 5975 POKES+1,15
  31. 5980 POKES+4,128
  32. 6009 REM RING 1 (4)
  33. 6010 POKE1443,81:POKE55715,7
  34. 6015 POKE1445,81:POKE55717,7
  35. 6017 POKE1484,81:POKE55756,7
  36. 6020 POKE1404,81:POKE55676,7
  37. 6022 FORA=1TO25:NEXTA
  38. 6024 REM RING 2 (8)
  39. 6025 POKE1441,81:POKE55713,7
  40. 6030 POKE1447,81:POKE55719,7
  41. 6035 POKE1324,81:POKE55596,7
  42. 6040 POKE1564,81:POKE55836,7
  43. 6045 POKE1362,81:POKE55634,7
  44. 6050 POKE1526,81:POKE55798,7
  45. 6055 POKE1522,81:POKE55794,7
  46. 6060 POKE1366,81:POKE55638,7
  47. 6061 FORB=1TO25:NEXTB
  48. 6065 REM RING 3 (12)
  49. 6070 POKE1439,81:POKE55711,8
  50. 6075 POKE1449,81:POKE55721,8
  51. 6080 POKE1644,81:POKE55916,8
  52. 6085 POKE1244,81:POKE55516,8
  53. 6090 POKE1602,81:POKE55874,8
  54. 6095 POKE1286,81:POKE55558,8
  55. 6100 POKE1606,81:POKE55878,8
  56. 6105 POKE1282,81:POKE55554,8
  57. 6110 POKE1568,81:POKE55840,8
  58. 6115 POKE1320,81:POKE55592,8
  59. 6120 POKE1560,81:POKE55832,8
  60. 6125 POKE1328,81:POKE55600,8
  61. 6127 FORC=1TO25:NEXTC
  62. 6132 REM RING 4 (20)
  63. 6135 POKE1164,81:POKE55436,8
  64. 6140 POKE1724,81:POKE55996,8
  65. 6145 POKE1437,81:POKE55709,8
  66. 6150 POKE1451,81:POKE55723,8
  67. 6155 POKE1640,81:POKE55912,8
  68. 6160 POKE1290,81:POKE55562,8
  69. 6165 POKE1278,81:POKE55550,8
  70. 6170 POKE1648,81:POKE55920,8
  71. 6175 POKE1202,81:POKE55474,8
  72. 6180 POKE1686,81:POKE55958,8
  73. 6185 POKE1518,81:POKE55790,8
  74. 6190 POKE1248,81:POKE55520,8
  75. 6195 POKE1530,81:POKE55802,8
  76. 6200 POKE1240,81:POKE55512,8
  77. 6205 POKE1598,81:POKE55870,8
  78. 6210 POKE1206,81:POKE55478,8
  79. 6215 POKE1610,81:POKE55882,8
  80. 6220 POKE1370,81:POKE55642,8
  81. 6225 POKE1682,81:POKE55954,8
  82. 6226 POKE1358,81:POKE55630,8
  83. 6227 FORD=1TO50:NEXTD
  84. 6233 REM NUCLEUS TO CINDER
  85. 6234 POKE1444,104:POKE55716,11
  86. 6235 REM RING 5 (24)
  87. 6240 POKE1084,81:POKE55356,2
  88. 6245 POKE1804,81:POKE56076,2
  89. 6250 POKE1435,81:POKE55707,2
  90. 6255 POKE1453,81:POKE55725,2
  91. 6260 POKE1160,81:POKE55432,2
  92. 6265 POKE1690,81:POKE55962,2
  93. 6270 POKE1596,81:POKE55868,2
  94. 6275 POKE1210,81:POKE55482,2
  95. 6280 POKE1276,81:POKE55548,2
  96. 6285 POKE1612,81:POKE55884,2
  97. 6290 POKE1168,81:POKE55440,2
  98. 6295 POKE1720,81:POKE55992,2
  99. 6300 POKE1728,81:POKE56000,2
  100. 6305 POKE1198,81:POKE55470,2
  101. 6310 POKE1292,81:POKE55564,2
  102. 6315 POKE1766,81:POKE56038,2
  103. 6320 POKE1122,81:POKE55394,2
  104. 6325 POKE1372,81:POKE55644,2
  105. 6330 POKE1516,81:POKE55788,2
  106. 6335 POKE1762,81:POKE56034,2
  107. 6340 POKE1126,81:POKE55398,2
  108. 6345 POKE1356,81:POKE55628,2
  109. 6350 POKE1532,81:POKE55804,2
  110. 6355 POKE1678,81:POKE55950,2
  111. 6357 FORE=1TO50:NEXTE
  112. 6365 REM RING 6 (22)
  113. 6370 POKE1041,81:POKE55313,2
  114. 6375 POKE1847,81:POKE56119,2
  115. 6380 POKE1431,81:POKE55703,2
  116. 6385 POKE1457,81:POKE55729,2
  117. 6390 POKE1173,81:POKE55445,2
  118. 6395 POKE1715,81:POKE55987,2
  119. 6400 POKE1733,81:POKE56005,2
  120. 6405 POKE1155,81:POKE55427,2
  121. 6410 POKE1841,81:POKE56113,2
  122. 6415 POKE1090,81:POKE55362,2
  123. 6420 POKE1312,81:POKE55584,2
  124. 6425 POKE1576,81:POKE55848,2
  125. 6430 POKE1078,81:POKE55350,2
  126. 6435 POKE1633,81:POKE55905,2
  127. 6440 POKE1047,81:POKE55319,2
  128. 6445 POKE1810,81:POKE56082,2
  129. 6450 POKE1233,81:POKE55505,2
  130. 6455 POKE1655,81:POKE55927,2
  131. 6460 POKE1798,81:POKE56070,2
  132. 6465 POKE1255,81:POKE55527,2
  133. 6470 POKE1552,81:POKE55824,2
  134. 6475 POKE1336,81:POKE55608,2
  135. 6476 FORJ=1TO50:NEXT
  136. 6492 REM RING 7 (18)
  137. 6493 FORF=1TO25:NEXTF
  138. 6495 POKE1427,81:POKE55699,4
  139. 6500 POKE1461,81:POKE55733,4
  140. 6505 POKE1111,81:POKE55383,4
  141. 6510 POKE1699,81:POKE55971,4
  142. 6515 POKE1751,81:POKE56023,4
  143. 6520 POKE1218,81:POKE55490,4
  144. 6525 POKE1548,81:POKE55820,4
  145. 6530 POKE1053,81:POKE55325,4
  146. 6535 POKE1189,81:POKE55461,4
  147. 6540 POKE1854,81:POKE56126,4
  148. 6545 POKE1034,81:POKE55306,4
  149. 6550 POKE1777,81:POKE56049,4
  150. 6555 POKE1136,81:POKE55408,4
  151. 6560 POKE1308,81:POKE55580,4
  152. 6565 POKE1580,81:POKE55852,4
  153. 6570 POKE1669,81:POKE55941,4
  154. 6575 POKE1340,81:POKE55612,4
  155. 6580 POKE1834,81:POKE56106,4
  156. 6600 REM RING 8 (4)
  157. 6610 POKE1067,81:POKE55339,6
  158. 6615 POKE1822,81:POKE56094,6
  159. 6620 POKE1787,81:POKE56059,6
  160. 6625 POKE1102,81:POKE55374,6
  161. 6626 FORJ=1TO100:NEXT
  162. 7230 REM RING 1 OFF
  163. 7231 POKE55717,0:POKE55715,0
  164. 7232 POKE55676,0:POKE55756,0
  165. 7233 FORJ=1TO80:NEXT
  166. 7360 REM RING 2 OFF
  167. 7361 POKE55713,0:POKE55719,0
  168. 7362 POKE55596,0:POKE55836,0
  169. 7363 POKE55634,0:POKE55798,0
  170. 7364 POKE55794,0:POKE55638,0
  171. 7365 FORJ=1TO80:NEXT
  172. 7477 REM RING 3 OFF
  173. 7480 POKE55600,O:POKE55711,0
  174. 7482 POKE55721,0:POKE55916,0
  175. 7485 POKE55516,0:POKE55874,0
  176. 7487 POKE55558,0:POKE55878,0
  177. 7490 POKE55554,0:POKE55840,0
  178. 7491 POKE55592,0:POKE55832,0
  179. 7492 FORJ=1TO80:NEXT
  180. 7581 REM RING 4 OFF
  181. 7582 POKE55436,0:POKE55996,0
  182. 7583 POKE55709,0:POKE55723,0
  183. 7584 POKE55912,0:POKE55562,0
  184. 7585 POKE55550,0:POKE55920,0
  185. 7586 POKE55474,0:POKE55958,0
  186. 7587 POKE55790,0:POKE55520,0
  187. 7588 POKE55802,0:POKE55512,0
  188. 7589 POKE55870,0:POKE55478,0
  189. 7590 POKE55882,0:POKE55642,0
  190. 7591 POKE55954,0:POKE55630,0
  191. 7593 FORG=1TO80:NEXTG
  192. 7630 REM RING 5 OFF
  193. 7631 POKE55356,0:POKE56076,0
  194. 7632 POKE55707,0:POKE55725,0
  195. 7633 POKE55432,0:POKE55962,0
  196. 7634 POKE55868,0:POKE55482,0
  197. 7635 POKE55548,0:POKE55884,0
  198. 7640 POKE55440,0:POKE55992,0
  199. 7641 POKE56000,0:POKE55470,0
  200. 7642 POKE55564,0:POKE56038,0
  201. 7643 POKE55394,0:POKE55644,0
  202. 7644 POKE55788,0:POKE56034,0
  203. 7645 POKE55398,O:POKE55628,0
  204. 7646 POKE55804,0:POKE55950,0
  205. 7648 FORX=1TO80:NEXTX
  206. 7650 REM RING 6 OFF
  207. 7651 POKE55313,0:POKE56119,0
  208. 7652 POKE55703,0:POKE55729,0
  209. 7653 POKE55445,0:POKE55987,0
  210. 7654 POKE56005,0:POKE55427,0
  211. 7655 POKE56113,0:POKE55362,0
  212. 7660 POKE55584,0:POKE55848,0
  213. 7661 POKE55350,0:POKE55905,0
  214. 7662 POKE55319,0:POKE56082,0
  215. 7663 POKE55505,0:POKE55927,0
  216. 7664 POKE56070,0:POKE55527,0
  217. 7665 POKE55824,0:POKE55608,0
  218. 7670 FORY=1TO100:NEXTY
  219. 7675 REM RING 7 OFF
  220. 7680 POKE55699,0:POKE55733,0
  221. 7681 POKE55383,0:POKE55971,0
  222. 7682 POKE56023,0:POKE55490,0
  223. 7683 POKE55820,0:POKE55325,0
  224. 7684 POKE55461,0:POKE56126,0
  225. 7685 POKE55306,0:POKE56049,0
  226. 7690 POKE55408,0:POKE55580,0
  227. 7691 POKE55852,0:POKE55941,0
  228. 7692 POKE55612,0:POKE56106,0
  229. 7695 FORZ=1TO100:NEXTZ
  230. 7699 REM RING 8 OFF
  231. 7700 POKE55339,0:POKE56094,0
  232. 7701 POKE56059,0:POKE55374,0
  233. 7702 FORJ=1TO800:NEXT:POKE1444,104:POKE55716,0
  234. 8703 PRINT""
  235. 8704 PRINTTAB(11)"[158]AIN'T LIFE GRAND?"
  236. 8705 PRINT"[144]":END
  237.